unit frEmployeePage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frBillPage;

type
  TfrmEmployeePage = class(TfrmBillPage)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitBrowserForm(AFormName: string = ''); override;
  end;

var
  frmEmployeePage: TfrmEmployeePage;

implementation

uses
  fEmployee, fClientForm;

{$R *.dfm}

procedure TfrmEmployeePage.InitBrowserForm(AFormName: string = '');
begin
  FBrowserForm := TfmEmployee.Create(Self.Owner);
  FBrowserForm.FormStyle := fsNormal;
  FBrowserForm.WindowState := wsNormal;
  FBrowserForm.Parent := Self;
  FBrowserForm.BorderStyle := bsNone;
  FBrowserForm.Align := alClient;
  FBrowserForm.Visible := True;
end;


end.
